(file-name-invalid-regexp): Fix regex for ms-dos without long file names.

diff --git a/lisp/files.el b/lisp/files.el
index d3c8629759d913d99eefe1386e0b0fca5b9eb17d..279431ace4a8bc8d0414cb92ddf98c01b5eb8b8f 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -174,7 +174,7 @@ If the buffer is visiting a new file, the value is nil.")
   (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
         (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
                 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|"  ; invalid characters
-                "[\000-\031]|"                   ; control characters
+                "[\000-\031]\\|"                 ; control characters
                 "\\(/\\.\\.?[^/]\\)\\|"          ; leading dots
                 "\\(/[^/.]+\\.[^/.]*\\.\\)"))    ; more than a single dot
        ((memq system-type '(ms-dos windows-nt))